home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Vector.e < prev   
Text File  |  2002-10-28  |  3KB  |  125 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w,vec
  7.  
  8.       vec := [50, 80, NIL,
  9.                0, 77, VF_Move OR VF_Area_Start,
  10.                0,  0, VF_Draw,
  11.               47,  0, VF_Draw,
  12.               47,  2, VF_Draw,
  13.                2,  2, VF_Draw,
  14.                2, 77, VF_Draw OR VF_Pen_Shine OR VF_Area_End,
  15.  
  16.                9, 36, VF_Move OR VF_Area_Start,
  17.               32, 36, VF_Draw,
  18.               32, 38, VF_Draw,
  19.                9, 38, VF_Draw OR VF_Pen_Shine OR VF_Area_End,
  20.  
  21.                2, 77, VF_Move OR VF_Area_Start,
  22.                7, 77, VF_Draw,
  23.                7, 44, VF_Draw,
  24.               32, 44, VF_Draw,
  25.               32, 38, VF_Draw,
  26.               34, 38, VF_Draw,
  27.               34, 46, VF_Draw,
  28.                9, 46, VF_Draw,
  29.                9, 79, VF_Draw,
  30.                2, 79, VF_Draw OR VF_Pen_Dark OR VF_Area_End,
  31.  
  32.                7, 36, VF_Move OR VF_Area_Start,
  33.                7,  8, VF_Draw,
  34.               47,  8, VF_Draw,
  35.               47,  2, VF_Draw,
  36.               49,  2, VF_Draw,
  37.               49, 10, VF_Draw,
  38.                9, 10, VF_Draw,
  39.                9, 36, VF_Draw OR VF_Pen_Dark OR VF_Area_End,
  40.  
  41.                3, 75, VF_Move OR VF_Area_Start,
  42.                5, 75, VF_Draw,
  43.                5, 42, VF_Draw,
  44.               30, 42, VF_Draw,
  45.               30, 39, VF_Draw,
  46.               32, 39, VF_Draw,
  47.               32, 44, VF_Draw,
  48.                7, 44, VF_Draw,
  49.                7, 77, VF_Draw,
  50.                3, 77, VF_Draw OR VF_Pen_Shadow OR VF_Area_End,
  51.  
  52.                5, 36, VF_Move OR VF_Area_Start,
  53.                5,  6, VF_Draw,
  54.               45,  6, VF_Draw,
  55.               45,  3, VF_Draw,
  56.               47,  3, VF_Draw,
  57.               47,  8, VF_Draw,
  58.                7,  8, VF_Draw,
  59.                7, 36, VF_Draw OR VF_Pen_Shadow OR VF_Area_End,
  60.  
  61.                2, 76, VF_Move OR VF_Area_Start,
  62.                2,  2, VF_Draw,
  63.               46,  2, VF_Draw,
  64.               46,  4, VF_Draw,
  65.                4,  4, VF_Draw,
  66.                4, 76, VF_Draw OR VF_Pen_HalfShine OR VF_Area_End,
  67.  
  68.                9, 38, VF_Move OR VF_Area_Start,
  69.               31, 38, VF_Draw,
  70.               31, 40, VF_Draw,
  71.                9, 40, VF_Draw OR VF_Pen_HalfShine OR VF_Area_End,
  72.  
  73.                4, 75, VF_Move OR VF_Area_Start,
  74.                4,  4, VF_Draw,
  75.               45,  4, VF_Draw,
  76.               45,  6, VF_Draw,
  77.                5,  6, VF_Draw,
  78.                5, 36, VF_Draw,
  79.                9, 36, VF_Draw,
  80.                9, 40, VF_Draw,
  81.               30, 40, VF_Draw,
  82.               30, 42, VF_Draw,
  83.                5, 42, VF_Draw,
  84.                5, 75, VF_Draw OR VF_Pen_Fill OR VF_Area_End,
  85.  
  86.                2, 77, VF_Move OR VF_Area_Start,
  87.                2, 76, VF_Draw,
  88.                3, 76, VF_Draw,
  89.                3, 77, VF_Draw OR VF_Pen_Fill OR VF_Area_End,
  90.  
  91.               31, 39, VF_Move OR VF_Area_Start,
  92.               31, 38, VF_Draw,
  93.               32, 38, VF_Draw,
  94.               32, 39, VF_Draw OR VF_Pen_Fill OR VF_Area_End,
  95.  
  96.               46,  3, VF_Move OR VF_Area_Start,
  97.               46,  2, VF_Draw,
  98.               47,  2, VF_Draw,
  99.               47,  3, VF_Draw,
  100.               46,  3, VF_Draw OR VF_Pen_Fill OR VF_Area_End,
  101.  
  102.                0,  0, VF_Stop]:feelinVectorItem
  103.  
  104.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  105.       c := ClientObject,
  106.          Child, w := WindowObject, FA_Window_Title,'Feelin : Vectors',
  107.             Child, VectorObject, FA_Vector, vec, DontChain, FA_MinWidth, 25, FA_MinHeight, 40, End,
  108.          End,
  109.       End
  110.  
  111.       IF c
  112.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE, FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  113.          F_Set(w,FA_Window_Open,TRUE)
  114.  
  115.          F_DoA(c,FM_Client_Run,NIL)
  116.  
  117.          F_DisposeObj(c)
  118.       ENDIF
  119.  
  120.       CloseLibrary(feelinbase)
  121.    ELSE
  122.       WriteF('Unable to open feelin.library\n')
  123.    ENDIF
  124. ENDPROC
  125.